LISP+MN[GEM,HE]+<GEOMED[GEM,HE],; GEMSUB[GEM,HE],MEMIO[GEM,HE],EULER[GEM,HE],; EUCLID[GEM,HE],VIEWER[GEM,HE],OCCULT[GEM,HE],BIN[GEM,HE]>,GEOMEL[GEM,HE]